home *** CD-ROM | disk | FTP | other *** search
/ Super PC 34 / Super PC 34 (Shareware).iso / spc / UTIL / DJGPP2 / V2 / DJTST200.ZIP / tests / libc / ansi / math / elefunt / ipow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-12-16  |  252 b   |  21 lines

  1. /* -*-C-*- ipow.c */
  2.  
  3. #include "elefunt.h"
  4.  
  5. float
  6. ipow(x, n)
  7. float x;
  8. int n;
  9. {
  10.     float value;
  11.     int k;
  12.  
  13.     value = 1.0;
  14.     for (k = 1; k <= ABS(n); ++k)
  15.     value *= x;
  16.     if (n < 0)
  17.     value = 1.0 / value;
  18.     return (value);
  19. }
  20.  
  21.